From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 3 Dec 2010 23:20:27 +0000 (-0500)
Subject: * lisp/subr.el (with-demoted-errors): Distinguish symbols from strings.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~5465
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=60c32ba137ae4eb20c827886a8594a319a440702;p=emacs.git

* lisp/subr.el (with-demoted-errors): Distinguish symbols from strings.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7c5ac793628..36a9af0d0a9 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2010-12-03  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+	* subr.el (with-demoted-errors): Distinguish symbols from strings.
+
 	* newcomment.el (comment-styles): Add docs to each style (bug#7509).
 	Improve docstring.
 	(comment-style): Use comment-styles's docs to describe values.
diff --git a/lisp/subr.el b/lisp/subr.el
index 70d8b76faa5..ff65997c68c 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -2816,7 +2816,7 @@ but which should be robust in the unexpected case that an error is signaled."
   (let ((err (make-symbol "err")))
     `(condition-case-no-debug ,err
          (progn ,@body)
-       (error (message "Error: %s" ,err) nil))))
+       (error (message "Error: %S" ,err) nil))))
 
 (defmacro combine-after-change-calls (&rest body)
   "Execute BODY, but don't call the after-change functions till the end.